Aminet 2/Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso/Aminet/misc/amag/sh9301c.lha/Oberon(S.67)/Listing5.mod

Text File | 1993-01-22 | 536b | 27 lines

MODULE Note;
IMPORT
  io;
VAR
  Zensur: LONGINT;
BEGIN
  LOOP
    REPEAT
      io.WriteString ("Bitte Note oder 0 (= Ende) eingeben: ");
    UNTIL io.ReadInt (Zensur);
    CASE Zensur OF
    | 0:
      EXIT;
    | 1:
      io.WriteString ("Echt OK!\n");
    | 2..4:
      io.WriteString ("Normal\n");
    | 5:
      io.WriteString ("Gefahr, Achtung!\n");
    | 6:
      io.WriteString ("und tschüß...\n");
    ELSE
      io.WriteString ("Bitte eine Note von 1 bis 6 oder 0 eingeben!\n");
    END; (* CASE *)
  END; (* LOOP *)
END Note.